home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / C-Cl / Checkbook.cpt / Checkbook 2.0 / background_3305.txt < prev    next >
Text File  |  1987-12-24  |  15KB  |  678 lines
  1. -- background: 3305 from stack: in.0
  2. -- bmap block id: 3687
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: theBackground
  6. ----- HyperTalk script -----
  7. on newCard
  8.   tabKey
  9. end newCard
  10.  
  11. on openCard
  12.   set hilite of background button "Cleared" to false
  13.   set hilite of background button "Deposit" to false
  14.   set hilite of background button "Withdrawl" to false
  15.   if background field "Cleared" is "C" then
  16.     set hilite of background button "Cleared" to true
  17.   else
  18.     set hilite of background button "Cleared" to false
  19.   end if
  20.   if background field "Code" is "W" then
  21.     set hilite of background button "Withdrawl" to true
  22.   else
  23.     set hilite of background button "Deposit" to true
  24.   end if
  25.  
  26.   global accountNumber,Balance
  27.   put accountNumber into background field "Account Number"
  28.   set numberFormat to "#.00"
  29.   put Balance into background field "Balance"
  30.   add 0 to background field "Amount"
  31. end openCard
  32.  
  33. on closeCard
  34.   get the short name of this card
  35.   if it is empty then
  36.     put empty into background field "Account Number"
  37.     put empty into background field "Balance"
  38.   end if
  39. end closeCard
  40.  
  41.  
  42. -- part 1 (button)
  43. -- low flags: 00
  44. -- high flags: 0000
  45. -- rect: left=249 top=239 right=266 bottom=280
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 1013 / 1013
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Next
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   go to next card
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 2 (button)
  62. -- low flags: 00
  63. -- high flags: 0000
  64. -- rect: left=217 top=239 right=266 bottom=248
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 1014 / 1014
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: Prev
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   go to prev card
  76. end mouseUp
  77.  
  78.  
  79.  
  80. -- part 4 (button)
  81. -- low flags: 00
  82. -- high flags: 0000
  83. -- rect: left=394 top=281 right=342 bottom=451
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: Compact
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   put the number of cards into temp
  95.   if temp > 22 then
  96.     answer "Delete first 20 cards and update balance?" with "OK" or "Cancel"
  97.     if it is "OK" then
  98.       set the cursor to 4
  99.       set lockScreen to true
  100.       mySort
  101.       compactRoutine
  102.       set lockScreen to false
  103.     end if
  104.   else
  105.     answer "Not enough cards to compact" with "OK"
  106.   end if
  107. end mouseUp
  108.  
  109. on compactRoutine
  110.   global balance
  111.   put 0 into debits
  112.   put 0 into credits
  113.   put 0 into balance
  114.   go to card 1
  115.   put background field "Amount" into balance
  116.   go to card 2
  117.   repeat 20 times
  118.     get hilite of background button "Deposit"
  119.     if it is true then
  120.       add background field "Amount" to balance
  121.     else
  122.       subtract background field "Amount" from balance
  123.     end if
  124.     doMenu delete card
  125.   end repeat
  126.   go to card 1
  127.   put balance into background field "Amount"
  128. end compactRoutine
  129.  
  130. on mySort
  131.   go to card 1
  132.   sort datetime by field 1
  133. end mySort
  134.  
  135.  
  136.  
  137.  
  138. -- part 5 (button)
  139. -- low flags: 00
  140. -- high flags: 0000
  141. -- rect: left=450 top=281 right=342 bottom=512
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 0 / 0
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: Export
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   --Set up the file--
  153.   put short name of this stack & " report" into fileName
  154.   ask "Export text to what file?" with fileName
  155.   if it is empty then exit mouseUp
  156.   put it into fileName
  157.   open file fileName
  158.   set lockScreen to true
  159.   set cursor to 4
  160.   go to card 1
  161.   --Main Loop--
  162.   --Header
  163.   write "Date" & tab & "Check No." & tab & "Amount" & tab & "Desc" & "Cleared" & return & return to file fileName
  164.   repeat for the number of cards
  165.     write field 1 & tab to file fileName
  166.     write field 2 & tab to file fileName
  167.     get hilite of background button "Withdrawl"
  168.     if it is true then
  169.       write -field 3 & tab to file fileName
  170.     else
  171.       write field 3 & tab to file fileName
  172.     end if
  173.     write field 4 & tab to file fileName
  174.     get hilite of background field "Cleared"
  175.     if it is true then
  176.       write "‚àö" to file fileName
  177.     else
  178.       write " " to file fileName
  179.     end if
  180.     write return to file fileName
  181.     go to next card
  182.   end repeat
  183.   close file fileName
  184.   set lockScreen to false
  185. end mouseUp
  186.  
  187.  
  188.  
  189.  
  190. -- part 6 (button)
  191. -- low flags: 00
  192. -- high flags: 0000
  193. -- rect: left=332 top=281 right=342 bottom=395
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 1
  197. -- font id: 0
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 16
  201. -- part name: Report
  202. ----- HyperTalk script -----
  203. on mouseUp
  204.   push card
  205.   go to first card
  206.   show card field "Info"
  207.   show card field "Account Names"
  208. end mouseUp
  209.  
  210.  
  211.  
  212.  
  213. -- part 7 (button)
  214. -- low flags: 00
  215. -- high flags: 0000
  216. -- rect: left=276 top=281 right=342 bottom=333
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 1
  220. -- font id: 0
  221. -- text size: 12
  222. -- style flags: 0
  223. -- line height: 16
  224. -- part name: Sort
  225. ----- HyperTalk script -----
  226. on mouseUp
  227.   answer "Sort by..." with "Date" or "Memo" or "Cancel"
  228.   if it is "Cancel" then
  229.     exit mouseUp
  230.   end if
  231.   set lockScreen to true
  232.   if it is "Date" then
  233.     go to first card
  234.     sort datetime by field "Date"
  235.   end if
  236.   if it is "Memo/Account" then
  237.     go to first card
  238.     sort by field "Memo"
  239.   end if
  240.   set lockScreen to false
  241.   go to first card
  242. end mouseUp
  243.  
  244.  
  245.  
  246. -- part 8 (button)
  247. -- low flags: 00
  248. -- high flags: 0000
  249. -- rect: left=227 top=281 right=342 bottom=277
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 1
  253. -- font id: 0
  254. -- text size: 12
  255. -- style flags: 0
  256. -- line height: 16
  257. -- part name: Help
  258. ----- HyperTalk script -----
  259. on mouseUp
  260.   set lockScreen to true
  261.   push card
  262.   go to first card
  263.   put background field "Help" into theText
  264.   pop card
  265.   set lockScreen to false
  266.   put theText into background field "Help"
  267.   show background field "Help"
  268. end mouseUp
  269.  
  270.  
  271.  
  272. -- part 9 (button)
  273. -- low flags: 00
  274. -- high flags: 0000
  275. -- rect: left=175 top=281 right=342 bottom=228
  276. -- title width / last selected line: 0
  277. -- icon id / first selected line: 0 / 0
  278. -- text alignment: 1
  279. -- font id: 0
  280. -- text size: 12
  281. -- style flags: 0
  282. -- line height: 16
  283. -- part name: About...
  284. ----- HyperTalk script -----
  285. on mouseDown
  286.   set lockScreen to true
  287.   push card
  288.   go to first card
  289.   put background field "Credits" into theText
  290.   pop card
  291.   set lockScreen to false
  292.   put theText into background field "Credits"
  293.   show background field "Credits"
  294. end mouseDown
  295.  
  296. on mouseUp
  297.   hide background field "Credits"
  298.   get the short name of this card
  299.   if it is empty then
  300.     put empty into background field "Credits"
  301.   end if
  302. end mouseUp
  303.  
  304.  
  305.  
  306. -- part 10 (button)
  307. -- low flags: 00
  308. -- high flags: 0000
  309. -- rect: left=125 top=281 right=342 bottom=176
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 0 / 0
  312. -- text alignment: 1
  313. -- font id: 0
  314. -- text size: 12
  315. -- style flags: 0
  316. -- line height: 16
  317. -- part name: New
  318. ----- HyperTalk script -----
  319. on mouseUp
  320.   go to last card
  321.   doMenu new card
  322. end mouseUp
  323.  
  324.  
  325.  
  326. -- part 11 (button)
  327. -- low flags: 00
  328. -- high flags: 0000
  329. -- rect: left=49 top=281 right=342 bottom=126
  330. -- title width / last selected line: 0
  331. -- icon id / first selected line: 0 / 0
  332. -- text alignment: 1
  333. -- font id: 0
  334. -- text size: 12
  335. -- style flags: 0
  336. -- line height: 16
  337. -- part name: Update Balance
  338. ----- HyperTalk script -----
  339. on mouseUp
  340.   global working,balance
  341.   set the cursor to 4
  342.   set lockScreen to true
  343.   searchRoutine
  344.   set lockScreen to false
  345. end mouseUp
  346.  
  347. on searchRoutine
  348.   global working,balance
  349.   put 0 into debits
  350.   put 0 into credits
  351.   put 1 into working
  352.   repeat while working=1
  353.     ---- For Balance ----
  354.     get hilite of background button "Deposit"
  355.     if it is false then            --withdrawl
  356.       add field "Amount" to debits
  357.     else                           --deposit
  358.       add field "Amount" to credits
  359.     end if
  360.     go to next card
  361.   end repeat
  362.   set numberFormat to "#.00"
  363.   put credits-debits into background field "Balance"
  364.   put credits-debits into balance
  365. end searchRoutine
  366.  
  367.  
  368.  
  369. -- part 12 (button)
  370. -- low flags: 00
  371. -- high flags: 0000
  372. -- rect: left=0 top=281 right=342 bottom=50
  373. -- title width / last selected line: 0
  374. -- icon id / first selected line: 0 / 0
  375. -- text alignment: 1
  376. -- font id: 0
  377. -- text size: 12
  378. -- style flags: 0
  379. -- line height: 16
  380. -- part name: Home
  381. ----- HyperTalk script -----
  382. on mouseUp
  383.   visual effect iris close
  384.   go "Home"
  385. end mouseUp
  386.  
  387.  
  388.  
  389. -- part 15 (field)
  390. -- low flags: 00
  391. -- high flags: 0000
  392. -- rect: left=281 top=36 right=53 bottom=352
  393. -- title width / last selected line: 0
  394. -- icon id / first selected line: 0 / 0
  395. -- text alignment: 0
  396. -- font id: 3
  397. -- text size: 12
  398. -- style flags: 0
  399. -- line height: 16
  400. -- part name: Date
  401.  
  402.  
  403. -- part 16 (field)
  404. -- low flags: 00
  405. -- high flags: 0000
  406. -- rect: left=423 top=33 right=52 bottom=484
  407. -- title width / last selected line: 0
  408. -- icon id / first selected line: 0 / 0
  409. -- text alignment: 0
  410. -- font id: 22
  411. -- text size: 14
  412. -- style flags: 256
  413. -- line height: 18
  414. -- part name: 
  415.  
  416.  
  417. -- part 18 (field)
  418. -- low flags: 00
  419. -- high flags: 0000
  420. -- rect: left=23 top=121 right=145 bottom=338
  421. -- title width / last selected line: 0
  422. -- icon id / first selected line: 0 / 0
  423. -- text alignment: 0
  424. -- font id: 3
  425. -- text size: 18
  426. -- style flags: 0
  427. -- line height: 24
  428. -- part name: Pay To
  429.  
  430.  
  431. -- part 20 (field)
  432. -- low flags: 00
  433. -- high flags: 0002
  434. -- rect: left=405 top=121 right=140 bottom=494
  435. -- title width / last selected line: 0
  436. -- icon id / first selected line: 0 / 0
  437. -- text alignment: 0
  438. -- font id: 22
  439. -- text size: 14
  440. -- style flags: 0
  441. -- line height: 18
  442. -- part name: Amount
  443. ----- HyperTalk script -----
  444. on closeField
  445.   set numberFormat to "#.00"
  446.   add 0 to background field "Amount"
  447. end closeField
  448.  
  449.  
  450. -- part 21 (field)
  451. -- low flags: 00
  452. -- high flags: 0000
  453. -- rect: left=25 top=177 right=227 bottom=283
  454. -- title width / last selected line: 0
  455. -- icon id / first selected line: 0 / 0
  456. -- text alignment: 0
  457. -- font id: 3
  458. -- text size: 12
  459. -- style flags: 0
  460. -- line height: 16
  461. -- part name: Memo
  462. ----- HyperTalk script -----
  463. on closeField
  464.   click at 1,1
  465. end closeField
  466.  
  467.  
  468. -- part 14 (field)
  469. -- low flags: 00
  470. -- high flags: 0000
  471. -- rect: left=26 top=243 right=263 bottom=220
  472. -- title width / last selected line: 0
  473. -- icon id / first selected line: 0 / 0
  474. -- text alignment: 0
  475. -- font id: 22
  476. -- text size: 14
  477. -- style flags: 0
  478. -- line height: 18
  479. -- part name: Account Number
  480.  
  481.  
  482. -- part 22 (button)
  483. -- low flags: 00
  484. -- high flags: 0000
  485. -- rect: left=242 top=34 right=53 bottom=285
  486. -- title width / last selected line: 0
  487. -- icon id / first selected line: 0 / 0
  488. -- text alignment: 1
  489. -- font id: 0
  490. -- text size: 12
  491. -- style flags: 0
  492. -- line height: 16
  493. -- part name: 
  494. ----- HyperTalk script -----
  495. on mouseUp
  496.   put the date into field "Date"
  497. end mouseUp
  498.  
  499.  
  500. -- part 26 (button)
  501. -- low flags: 00
  502. -- high flags: 0005
  503. -- rect: left=282 top=75 right=93 bottom=374
  504. -- title width / last selected line: 0
  505. -- icon id / first selected line: 0 / 0
  506. -- text alignment: 1
  507. -- font id: 0
  508. -- text size: 12
  509. -- style flags: 0
  510. -- line height: 16
  511. -- part name: Withdrawl
  512. ----- HyperTalk script -----
  513. on mouseUp
  514.   set hilite of background button "Withdrawl" to true
  515.   set hilite of background button "Deposit" to false
  516.   put "W" into field "Code"
  517. end mouseUp
  518.  
  519.  
  520.  
  521. -- part 27 (button)
  522. -- low flags: 00
  523. -- high flags: 4005
  524. -- rect: left=382 top=75 right=93 bottom=458
  525. -- title width / last selected line: 0
  526. -- icon id / first selected line: 0 / 0
  527. -- text alignment: 1
  528. -- font id: 0
  529. -- text size: 12
  530. -- style flags: 0
  531. -- line height: 16
  532. -- part name: Deposit
  533. ----- HyperTalk script -----
  534. on mouseUp
  535.   set hilite of background button "Deposit" to true
  536.   set hilite of background button "Withdrawl" to false
  537.   put "D" into field "Code"
  538. end mouseUp
  539.  
  540.  
  541.  
  542. -- part 28 (field)
  543. -- low flags: 00
  544. -- high flags: 0000
  545. -- rect: left=409 top=245 right=264 bottom=491
  546. -- title width / last selected line: 0
  547. -- icon id / first selected line: 0 / 0
  548. -- text alignment: 0
  549. -- font id: 3
  550. -- text size: 12
  551. -- style flags: 0
  552. -- line height: 16
  553. -- part name: Balance
  554. ----- HyperTalk script -----
  555. on closeField
  556.   set numberFormat to "#.00"
  557.   add 0 to field "Balance"
  558. end closeField
  559.  
  560.  
  561. -- part 30 (field)
  562. -- low flags: 80
  563. -- high flags: 0002
  564. -- rect: left=353 top=147 right=165 bottom=382
  565. -- title width / last selected line: 0
  566. -- icon id / first selected line: 0 / 0
  567. -- text alignment: 0
  568. -- font id: 3
  569. -- text size: 12
  570. -- style flags: 0
  571. -- line height: 16
  572. -- part name: Code
  573.  
  574.  
  575. -- part 31 (field)
  576. -- low flags: 80
  577. -- high flags: 0002
  578. -- rect: left=455 top=186 right=203 bottom=478
  579. -- title width / last selected line: 0
  580. -- icon id / first selected line: 0 / 0
  581. -- text alignment: 0
  582. -- font id: 3
  583. -- text size: 12
  584. -- style flags: 0
  585. -- line height: 16
  586. -- part name: Cleared
  587.  
  588.  
  589. -- part 32 (button)
  590. -- low flags: 00
  591. -- high flags: 4005
  592. -- rect: left=418 top=167 right=183 bottom=488
  593. -- title width / last selected line: 0
  594. -- icon id / first selected line: 0 / 0
  595. -- text alignment: 1
  596. -- font id: 0
  597. -- text size: 12
  598. -- style flags: 0
  599. -- line height: 16
  600. -- part name: Cleared
  601. ----- HyperTalk script -----
  602. on mouseUp
  603.   get hilite of background button "Cleared"
  604.   if it is true then
  605.     set hilite of background button "Cleared" to false
  606.     put "N" into field "Cleared"
  607.   else
  608.     set hilite of background button "Cleared" to true
  609.     put "C" into field "Cleared"
  610.   end if
  611. end mouseUp
  612.  
  613.  
  614.  
  615. -- part 35 (field)
  616. -- low flags: 81
  617. -- high flags: 2007
  618. -- rect: left=17 top=27 right=266 bottom=497
  619. -- title width / last selected line: 0
  620. -- icon id / first selected line: 0 / 0
  621. -- text alignment: 0
  622. -- font id: 3
  623. -- text size: 12
  624. -- style flags: 0
  625. -- line height: 16
  626. -- part name: Help
  627. ----- HyperTalk script -----
  628. on mouseUp
  629.   get the short name of this card
  630.   hide background field "Help"
  631.   if it is not "first card" then
  632.     put empty into background field "Help"
  633.   end if
  634. end mouseUp
  635.  
  636.  
  637. -- part 36 (field)
  638. -- low flags: 81
  639. -- high flags: 2004
  640. -- rect: left=18 top=30 right=167 bottom=241
  641. -- title width / last selected line: 0
  642. -- icon id / first selected line: 0 / 0
  643. -- text alignment: 0
  644. -- font id: 3
  645. -- text size: 12
  646. -- style flags: 0
  647. -- line height: 16
  648. -- part name: Credits
  649.  
  650.  
  651. -- part 37 (button)
  652. -- low flags: 00
  653. -- high flags: 0000
  654. -- rect: left=23 top=154 right=175 bottom=132
  655. -- title width / last selected line: 0
  656. -- icon id / first selected line: 0 / 0
  657. -- text alignment: 1
  658. -- font id: 0
  659. -- text size: 12
  660. -- style flags: 0
  661. -- line height: 16
  662. -- part name: Memo/Account
  663. ----- HyperTalk script -----
  664. on mouseUp
  665.   set lockScreen to true
  666.   push card
  667.   go to card "first card"
  668.   put card field "Account Names" into theList
  669.   pop card
  670.   set lockScreen to false
  671.   DoList "Select","Cancel",theList,ONE
  672.   get the result
  673.   if it is not empty then
  674.     put item 2 of it into background field "Memo"
  675.   end if
  676. end mouseUp
  677.  
  678.